home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
norpt.arc
/
NORPT.LST
< prev
next >
Wrap
File List
|
1989-08-27
|
21KB
|
592 lines
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-1
1 ;
2 ;
3 ; Thomas Nofsinger
4 ; cccc ASM 290
5 ; 4/17/89
6 ;
7 ; PROGRAM LISTING FOR NORPT.COM
8 ;
9 ; THIS PROGRAM WILL TURN OFF THE
REPEAT FUNCTION OF THE KEYBOARD,
10 ; AND STAY MEMORY RESIDENT. IT I
S CODED FOR MY HARDWARE AND MAY NOT
11 ; WORK ON ALL CLONES AND REAL PC'
S.
12 ;
13
14 0000 CSEG SEGMENT
15 ASSUME CS:CSEG
;NO STACK SEG!
16
17 0100 ORG 100H
;A .COM file
18 0100 BEGIN:
19
20 0100 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
21 0102 B3 0F MOV BL,15
22 0104 B0 4E MOV AL,'N'
23 0106 B9 0001 MOV CX,1
24 0109 B4 0E MOV AH,14
25 010B CD 10 INT 10h
26
27 010D B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
28 010F B3 0F MOV BL,15
29 0111 B0 4F MOV AL,'O'
30 0113 B9 0001 MOV CX,1
31 0116 B4 0E MOV AH,14
32 0118 CD 10 INT 10h
33
34 011A B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
35 011C B3 0F MOV BL,15
36 011E B0 52 MOV AL,'R'
37 0120 B9 0001 MOV CX,1
38 0123 B4 0E MOV AH,14
39 0125 CD 10 INT 10h
40
41 0127 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
42 0129 B3 0F MOV BL,15
43 012B B0 50 MOV AL,'P'
44 012D B9 0001 MOV CX,1
45 0130 B4 0E MOV AH,14
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-2
46 0132 CD 10 INT 10h
47
48 0134 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
49 0136 B3 0F MOV BL,15
50 0138 B0 54 MOV AL,'T'
51 013A B9 0001 MOV CX,1
52 013D B4 0E MOV AH,14
53 013F CD 10 INT 10h
54
55 0141 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
56 0143 B3 0F MOV BL,15
57 0145 B0 20 MOV AL,' '
58 0147 B9 0001 MOV CX,1
59 014A B4 0E MOV AH,14
60 014C CD 10 INT 10h
61
62 ;* MOV BH,0 ;COPY
RIGHT NOTICE WITHOUT IO.LIB
63 014E B3 0F MOV BL,15
64 0150 B0 49 MOV AL,'I'
65 0152 B9 0001 MOV CX,1
66 0155 B4 0E MOV AH,14
67 0157 CD 10 INT 10h
68
69 0159 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
70 015B B3 0F MOV BL,15
71 015D B0 4E MOV AL,'N'
72 015F B9 0001 MOV CX,1
73 0162 B4 0E MOV AH,14
74 0164 CD 10 INT 10h
75
76 0166 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
77 0168 B3 0F MOV BL,15
78 016A B0 53 MOV AL,'S'
79 016C B9 0001 MOV CX,1
80 016F B4 0E MOV AH,14
81 0171 CD 10 INT 10h
82
83 0173 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
84 0175 B3 0F MOV BL,15
85 0177 B0 54 MOV AL,'T'
86 0179 B9 0001 MOV CX,1
87 017C B4 0E MOV AH,14
88 017E CD 10 INT 10h
89
90 0180 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
91 0182 B3 0F MOV BL,15
92 0184 B0 41 MOV AL,'A'
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-3
93 0186 B9 0001 MOV CX,1
94 0189 B4 0E MOV AH,14
95 018B CD 10 INT 10h
96
97 018D B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
98 018F B3 0F MOV BL,15
99 0191 B0 4C MOV AL,'L'
100 0193 B9 0001 MOV CX,1
101 0196 B4 0E MOV AH,14
102 0198 CD 10 INT 10h
103
104 019A B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
105 019C B3 0F MOV BL,15
106 019E B0 4C MOV AL,'L'
107 01A0 B9 0001 MOV CX,1
108 01A3 B4 0E MOV AH,14
109 01A5 CD 10 INT 10h
110
111 01A7 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
112 01A9 B3 0F MOV BL,15
113 01AB B0 45 MOV AL,'E'
114 01AD B9 0001 MOV CX,1
115 01B0 B4 0E MOV AH,14
116 01B2 CD 10 INT 10h
117
118 01B4 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
119 01B6 B3 0F MOV BL,15
120 01B8 B0 44 MOV AL,'D'
121 01BA B9 0001 MOV CX,1
122 01BD B4 0E MOV AH,14
123 01BF CD 10 INT 10H
124
125 01C1 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
126 01C3 B3 0F MOV BL,15
127 01C5 B0 20 MOV AL,' '
128 01C7 B9 0001 MOV CX,1
129 01CA B4 0E MOV AH,14
130 01CC CD 10 INT 10h
131
132 01CE B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
133 01D0 B3 0F MOV BL,15
134 01D2 B0 20 MOV AL,' '
135 01D4 B9 0001 MOV CX,1
136 01D7 B4 0E MOV AH,14
137 01D9 CD 10 INT 10h
138
139 01DB B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-4
140 01DD B3 0F MOV BL,15
141 01DF B0 20 MOV AL,' '
142 01E1 B9 0001 MOV CX,1
143 01E4 B4 0E MOV AH,14
144 01E6 CD 10 INT 10h
145
146 01E8 CD 10 INT 10h
147 01EA B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
148 01EC B3 0F MOV BL,15
149 01EE B0 43 MOV AL,'C'
150 01F0 B9 0001 MOV CX,1
151 01F3 B4 0E MOV AH,14
152 01F5 CD 10 INT 10h
153
154 01F7 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
155 01F9 B3 0F MOV BL,15
156 01FB B0 4F MOV AL,'O'
157 01FD B9 0001 MOV CX,1
158 0200 B4 0E MOV AH,14
159 0202 CD 10 INT 10h
160
161 0204 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
162 0206 B3 0F MOV BL,15
163 0208 B0 50 MOV AL,'P'
164 020A B9 0001 MOV CX,1
165 020D B4 0E MOV AH,14
166 020F CD 10 INT 10h
167
168 0211 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
169 0213 B3 0F MOV BL,15
170 0215 B0 59 MOV AL,'Y'
171 0217 B9 0001 MOV CX,1
172 021A B4 0E MOV AH,14
173 021C CD 10 INT 10h
174
175 021E B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
176 0220 B3 0F MOV BL,15
177 0222 B0 52 MOV AL,'R'
178 0224 B9 0001 MOV CX,1
179 0227 B4 0E MOV AH,14
180 0229 CD 10 INT 10h
181
182 022B B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
183 022D B3 0F MOV BL,15
184 022F B0 49 MOV AL,'I'
185 0231 B9 0001 MOV CX,1
186 0234 B4 0E MOV AH,14
187 0236 CD 10 INT 10h
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-5
188
189 0238 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
190 023A B3 0F MOV BL,15
191 023C B0 47 MOV AL,'G'
192 023E B9 0001 MOV CX,1
193 0241 B4 0E MOV AH,14
194 0243 CD 10 INT 10h
195
196 0245 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
197 0247 B3 0F MOV BL,15
198 0249 B0 48 MOV AL,'H'
199 024B B9 0001 MOV CX,1
200 024E B4 0E MOV AH,14
201 0250 CD 10 INT 10h
202
203 0252 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
204 0254 B3 0F MOV BL,15
205 0256 B0 54 MOV AL,'T'
206 0258 B9 0001 MOV CX,1
207 025B B4 0E MOV AH,14
208 025D CD 10 INT 10h
209
210 025F B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
211 0261 B3 0F MOV BL,15
212 0263 B0 20 MOV AL,' '
213 0265 B9 0001 MOV CX,1
214 0268 B4 0E MOV AH,14
215 026A CD 10 INT 10h
216
217 026C B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
218 026E B3 0F MOV BL,15
219 0270 B0 31 MOV AL,'1'
220 0272 B9 0001 MOV CX,1
221 0275 B4 0E MOV AH,14
222 0277 CD 10 INT 10h
223
224 0279 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
225 027B B3 0F MOV BL,15
226 027D B0 39 MOV AL,'9'
227 027F B9 0001 MOV CX,1
228 0282 B4 0E MOV AH,14
229 0284 CD 10 INT 10h
230
231 0286 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
232 0288 B3 0F MOV BL,15
233 028A B0 38 MOV AL,'8'
234 028C B9 0001 MOV CX,1
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-6
235 028F B4 0E MOV AH,14
236 0291 CD 10 INT 10h
237
238 0293 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
239 0295 B3 0F MOV BL,15
240 0297 B0 39 MOV AL,'9'
241 0299 B9 0001 MOV CX,1
242 029C B4 0E MOV AH,14
243 029E CD 10 INT 10h
244
245 02A0 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
246 02A2 B3 0F MOV BL,15
247 02A4 B0 20 MOV AL,' '
248 02A6 B9 0001 MOV CX,1
249 02A9 B4 0E MOV AH,14
250 02AB CD 10 INT 10h
251
252 02AD B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
253 02AF B3 0F MOV BL,15
254 02B1 B0 4E MOV AL,'N'
255 02B3 B9 0001 MOV CX,1
256 02B6 B4 0E MOV AH,14
257 02B8 CD 10 INT 10h
258
259 02BA B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
260 02BC B3 0F MOV BL,15
261 02BE B0 4F MOV AL,'O'
262 02C0 B9 0001 MOV CX,1
263 02C3 B4 0E MOV AH,14
264 02C5 CD 10 INT 10h
265
266 02C7 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
267 02C9 B3 0F MOV BL,15
268 02CB B0 46 MOV AL,'F'
269 02CD B9 0001 MOV CX,1
270 02D0 B4 0E MOV AH,14
271 02D2 CD 10 INT 10h
272
273 02D4 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
274 02D6 B3 0F MOV BL,15
275 02D8 B0 53 MOV AL,'S'
276 02DA B9 0001 MOV CX,1
277 02DD B4 0E MOV AH,14
278 02DF CD 10 INT 10h
279
280 02E1 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
281 02E3 B3 0F MOV BL,15
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-7
282 02E5 B0 49 MOV AL,'I'
283 02E7 B9 0001 MOV CX,1
284 02EA B4 0E MOV AH,14
285 02EC CD 10 INT 10h
286
287 02EE B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
288 02F0 B3 0F MOV BL,15
289 02F2 B0 4E MOV AL,'N'
290 02F4 B9 0001 MOV CX,1
291 02F7 B4 0E MOV AH,14
292 02F9 CD 10 INT 10h
293
294 02FB B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
295 02FD B3 0F MOV BL,15
296 02FF B0 47 MOV AL,'G'
297 0301 B9 0001 MOV CX,1
298 0304 B4 0E MOV AH,14
299 0306 CD 10 INT 10h
300
301 0308 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
302 030A B3 0F MOV BL,15
303 030C B0 45 MOV AL,'E'
304 030E B9 0001 MOV CX,1
305 0311 B4 0E MOV AH,14
306 0313 CD 10 INT 10h
307
308 0315 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
309 0317 B3 0F MOV BL,15
310 0319 B0 52 MOV AL,'R'
311 031B B9 0001 MOV CX,1
312 031E B4 0E MOV AH,14
313 0320 CD 10 INT 10h
314
315 0322 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
316 0324 B3 0F MOV BL,15
317 0326 B0 2C MOV AL,','
318 0328 B9 0001 MOV CX,1
319 032B B4 0E MOV AH,14
320 032D CD 10 INT 10h
321
322 032F B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
323 0331 B3 0F MOV BL,15
324 0333 B0 20 MOV AL,' '
325 0335 B9 0001 MOV CX,1
326 0338 B4 0E MOV AH,14
327 033A CD 10 INT 10h
328
329 033C B7 00 MOV BH,0 ;COPYRI
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-8
GHT NOTICE WITHOUT IO.LIB
330 033E B3 0F MOV BL,15
331 0340 B0 54 MOV AL,'T'
332 0342 B9 0001 MOV CX,1
333 0345 B4 0E MOV AH,14
334 0347 CD 10 INT 10h
335
336 0349 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
337 034B B3 0F MOV BL,15
338 034D B0 48 MOV AL,'H'
339 034F B9 0001 MOV CX,1
340 0352 B4 0E MOV AH,14
341 0354 CD 10 INT 10h
342
343 0356 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
344 0358 B3 0F MOV BL,15
345 035A B0 4F MOV AL,'O'
346 035C B9 0001 MOV CX,1
347 035F B4 0E MOV AH,14
348 0361 CD 10 INT 10h
349
350 0363 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
351 0365 B3 0F MOV BL,15
352 0367 B0 4D MOV AL,'M'
353 0369 B9 0001 MOV CX,1
354 036C B4 0E MOV AH,14
355 036E CD 10 INT 10h
356
357 0370 B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
358 0372 B3 0F MOV BL,15
359 0374 B0 41 MOV AL,'A'
360 0376 B9 0001 MOV CX,1
361 0379 B4 0E MOV AH,14
362 037B CD 10 INT 10h
363
364 037D B7 00 MOV BH,0 ;COPYRI
GHT NOTICE WITHOUT IO.LIB
365 037F B3 0F MOV BL,15
366 0381 B0 53 MOV AL,'S'
367 0383 B9 0001 MOV CX,1
368 0386 B4 0E MOV AH,14
369 0388 CD 10 INT 10h
370
371
372 038A EB 30 90 JMP START
373
374 038D 00000000 BIOS_INT_9 DD ?
375 0391 00 LASTKEY DB ?
376
377 0392 INT9_TASK PROC FAR
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-9
378
379 ASSUME DS:nothing
380
381 0392 50 PUSH AX
382
383 0393 E4 60 IN AL,60h ;READ P
ORT A OF 8255 FOR KEYS
384
385 0395 A8 80 TEST AL,80h ;TEST F
OR BREAK KEY
386
387 0397 75 17 JNZ KEY_IN ;IT IS A BR
EAK KEY - TAKE IT IN
388
389 0399 2E: 3A 06 0391 R CMP AL,LASTKEY
390 039E 75 10 JNZ KEY_IN ;KEY TO PRO
CESS
391
392 03A0 E4 61 IN AL,61h ;FEED P
ORT B ON THE 8255 A HIGH BIT 7
393 03A2 0C 80 OR AL,80h ;TO ACK
DATA
394 03A4 E6 61 OUT 61H,AL
395 03A6 24 7F AND AL,7Fh ;CLEAR
BIT 7 (LOW)
396 03A8 E6 61 OUT 61h,AL
397
398 03AA B0 20 MOV AL,20h ;HARDWA
RE INTERRUPT DONE
399 03AC E6 20 OUT 20h,AL ;SIGNAL
TO THE 8255
400
401 03AE 58 POP AX
402 03AF CF IRET ;DUPED
KEY STROKE --> BIT BUCKET
403
404 03B0 KEY_IN:
405
406 03B0 2E: A2 0391 R MOV LASTKEY,AL ;SAVE K
EY FOR NEXT CYCLE
407 03B4 9C PUSHF
408 03B5 2E: FF 1E 038D R CALL BIOS_INT_9 ;PASS T
O BIOS TO PROCESS THE KEY
409 03BA 58 POP AX
410 03BB CF IRET
411
412 = 03BC End_Resident EQU $
413
414 03BC INT9_TASK ENDP
415
416
417 03BC START PROC NEAR
418
419 ASSUME DS:CSEG
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Page 1-10
420
421 03BC C6 06 0391 R 80 MOV LASTKEY,80h ;intiali
ze LASTKEY
422
423 03C1 B0 09 MOV AL,9 ;READ A
ND RECORD BIOS INT 9 VECTOR
424 03C3 B4 35 MOV AH,35h
425 03C5 CD 21 INT 21h
426 03C7 89 1E 038D R MOV WORD PTR BIOS_INT_9,BX
427 03CB 8C 06 038F R MOV WORD PTR BIOS_INT_9[2],
ES
428
429 03CF BA 0392 R MOV DX,offset INT9_TASK
;POINT INT 9 VECTOR TO THIS TASK
430 03D2 B0 09 MOV AL,9
431 03D4 B4 25 MOV AH,25h
432 03D6 CD 21 INT 21h
433
434 03D8 8D 16 03BC R LEA DX,End_Resident
;TSR
435 03DC CD 27 INT 27h
436
437 03DE START ENDP
438 03DE CSEG ENDS
439 END BEGIN
Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56
Symbols-1
Segments and Groups:
N a m e Length Align Combine Class
CSEG . . . . . . . . . . . . . . 03DE PARA NONE
Symbols:
N a m e Type Value Attr
BEGIN . . . . . . . . . . . . . L NEAR 0100 CSEG
BIOS_INT_9 . . . . . . . . . . . L DWORD 038D CSEG
END_RESIDENT . . . . . . . . . . NEAR 03BC CSEG
INT9_TASK . . . . . . . . . . . F PROC 0392 CSEG Length = 002A
KEY_IN . . . . . . . . . . . . . L NEAR 03B0 CSEG
LASTKEY . . . . . . . . . . . . L BYTE 0391 CSEG
START . . . . . . . . . . . . . N PROC 03BC CSEG Length = 0022
@CPU . . . . . . . . . . . . . . TEXT 0101h
@FILENAME . . . . . . . . . . . TEXT norpt
@VERSION . . . . . . . . . . . . TEXT 510
439 Source Lines
439 Total Lines
13 Symbols
47188 + 312550 Bytes symbol space free
0 Warning Errors
0 Severe Errors